\begin{verbatim}
PROSCA                                                          12-Jul-2001 15:10:32  Digital Fortran 77 V4.1-92        Page 1
                                                                12-Jul-2001 13:04:26  prosca.f

	      1       REAL FUNCTION PROSCA*8(N,V1,V2)
	      2 C ** FUNCTION CHE ESEGUE IL PRODOTTO SCALARE  V1 X V2 **
	      3 C
	      4 c EXVAR: N,V1,V2 IN INPUT; PROSCA IN OUTPUT;
	      5 C
	      6       INTEGER N,I
	      7       REAL*8 V1(1),V2(1)
	      8 C
	      9       PROSCA=0.
	     10       DO 10 I=1,N
	     11         IF((V1(I).NE.0.).AND.(V2(I).NE.0.))
	     12      1    PROSCA=PROSCA+V1(I)*V2(I)
	     13 10    CONTINUE
	     14       RETURN
	     15       END


PROGRAM SECTIONS

    Name				 Bytes   Attributes

  1 $CODE                                   64   PIC CON REL LCL   SHR   EXE NORD NOWRT NOSEC NOTLS OCTA

    Total Space Allocated                   64


ENTRY POINTS

    Address   Type  Name  
                          
  1-00000000  R*8   PROSCA


VARIABLES

    Address   Type  Name     Address   Type  Name
                                                 
REG-00000001  I*4   I          **      I*4   N   


ARRAYS

     Address  Type  Name        Bytes  Dimensions

      **      R*8   V1             **  (1)
      **      R*8   V2             **  (1)




PROSCA                                                          12-Jul-2001 15:10:32  Digital Fortran 77 V4.1-92        Page 2
                                Symbol Table                    12-Jul-2001 13:04:26  prosca.f

LABELS

    Address   Label
                   
  1-0000002C   10  

PROSCA                                                          12-Jul-2001 15:10:32  Digital Fortran 77 V4.1-92        Page 3
                                Symbol Table                    12-Jul-2001 13:04:26  prosca.f

	     16 


  +---------------------------------------------------+
  |               KEY TO ADDRESS CODE FORMATS         |
  |   ppp-oooooooo  - In Psect ppp, Offset oooooooo   |
  |   ***-********  - External                        |
  |               # - Suffix: Also In Registers       |
  |   REG-rrrrrrrr  - In Register rrrrrrrr            |
  |   REG-########  - In Various Registers            |
  |        **       - Not Used; Not Allocated         |
  +---------------------------------------------------+


COMPILER OPTIONS BEING USED

  no	-align commons 			.  no	-automatic				.  no	-recursive
  yes	-align records			.  no	-d_lines				.
  yes	-assume accuracy_sensitive	.  no	-extend_source				.  no	-pad_source
  no	-assume backslash		.  yes	-f77					.
  no	-assume byterecl		.  						.
  no	-assume dummy_aliases		.  no	-gen_feedback				.  no	-pg
  yes	-assume source_include		.  no	-ident					.
  yes	-assume underscore		.  no	-syntax_only				.
  no	-check bounds			.  no	-vms					.  yes	-OSF
  no	-check format			.  yes	-call_shared				.
  no	-check output_conversion	.  no	-S					.
  no	-check overflow			.  						.
  yes	-check power			.  						.
  no	-check underflow		.       -blas nomapped				.
  no	-show code			.       -error_limit 30 			.
  no	-show include			.       -float ieee_float  			.       -convert native
  yes	-show map			.       -reentrancy none    			.
  yes	-show single			.       -fpe0 					.       -fprm nearest
  no	-show xref			.       -G 0    				.
  no	-stand mia			.       -g1  					.  no	-synchronous_exceptions
  no	-stand semantic			.       -granularity quadword 			.
  no	-stand source_form		.       -instruction_set floating_point  	.       
  no	-stand syntax			.       -integer_size 32			.       -real_size 32   -double_size 64
  yes	-warn alignments		.       -math_library accurate			.  no	-transform_loops
  no	-warn argument_checking		.       -names lowercase			.  no	-pipeline
  no	-warn declarations		.       -O4    					.       -inline speed   -unroll 0
  yes	-warn general			.       -terminal nostatistics			.       -speculate none
  yes	-warn informational		.  						.
  no	-warn truncated_source		.       -arch generic     			.       -tune generic
  yes	-warn uncalled			.  						.
  yes	-warn uninitialized		.  						.
  yes	-warn unreachable		.  						.
  no	-warn unused			.  						.
  yes	-warn usage			.  						.

  -I    path : .f,.for,.FOR,,/usr/include/.f,/usr/include/.for,/usr/include/.FOR,/usr/include/
  -V    filename : prosca.l
  -o    filename : prosca.o
  -ana  filename : none
  -diag filename : none
  -feedback file : none

                                                                12-Jul-2001 15:10:32  Digital Fortran 77 V4.1-92        Page 4
                                Compilation Statistics          12-Jul-2001 13:04:26  prosca.f


COMPILER: Digital Fortran 77 V4.1-92-33BL

COMPILATION STATISTICS

  CPU time:          0.03 seconds
  Elapsed time:      1.79 seconds
  Pagefaults:         250
  I/O Count:          298
\end{verbatim}
